home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / irc / cybershiela.lha / cs / cs_shutup.amirx < prev    next >
Text File  |  1999-07-18  |  755b  |  20 lines
  1. /* CyberShiela MultiResponse File */
  2. nick=getclip('NICK')
  3. xx=random(1,6,time('s'))
  4. select
  5. when xx=1 then a="shut up $1!!!"
  6. when xx=2 then a="If i wanted to hear shit, i would have asked you to speak $1, now shut the fuck up!!"
  7. when xx=3 then a="oh god, Who let the animal out of its cage?"
  8. when xx=4 then a="$1, just shut up will ya?"
  9. when xx=5 then a="$1...I wasn't talking to you was I?"
  10. when xx=6 then a="$1: Go sit in the corner, i wasn't talking to you."
  11. end
  12. modif:
  13. user=nick
  14. old=a
  15. m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
  16. temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
  17. a=old
  18. 'say 'A
  19. exit
  20.